home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_61645.txt < prev    next >
Text File  |  1990-08-14  |  22KB  |  1,052 lines
  1. -- card: 61645 from stack: in
  2. -- bmap block id: 95426
  3. -- flags: 4000
  4. -- background id: 19276
  5. -- name: Students & Courses
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonNumber
  9.   put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into background field date
  10.   set hilite of background button buttonNumber to false
  11. end openCard
  12.  
  13. on closeCard
  14.   global buttonNumber
  15.   set hilite of background button buttonNumber to true
  16. end closeCard
  17.  
  18. on resetCard
  19.   set hilite of card button id 20 to false
  20.   set hilite of card button id 21 to false
  21.   set hilite of card button id 24 to false
  22.   set hilite of card button id 25 to false
  23.   set hilite of card button id 26 to false
  24.   set hilite of card button id 27 to false
  25.   set hilite of card button id 28 to false
  26.   set hilite of card button id 29 to false
  27.   set hilite of card button id 30 to false
  28.   set hilite of card button id 31 to false
  29.   set hilite of card button id 32 to false
  30.   set icon of card button id 33 to "Md Unchecked Box"
  31.   set icon of card button id 34 to "Md Unchecked Box"
  32.   set icon of card button id 35 to "Md Unchecked Box"
  33.   set icon of card button id 36 to "Md Unchecked Box"
  34.   set icon of card button id 37 to "Md Unchecked Box"
  35.   set icon of card button id 38 to "Md Unchecked Box"
  36.   set icon of card button id 39 to "Md Unchecked Box"
  37.   set icon of card button id 40 to "Md Unchecked Box"
  38.   set the loc of card button "Thumb" to 139,265
  39.   put "Study Hall" into card field "Course List"
  40.   hide card button id 34
  41.   hide card button id 35
  42.   hide card button id 36
  43.   put "N/A" into card field "Grade"
  44. end resetCard
  45.  
  46.  
  47.  
  48. -- part 1 (button)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=0 top=0 right=342 bottom=512
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: 
  60.  
  61.  
  62. -- part 2 (button)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=262 top=31 right=48 bottom=452
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Attendance & Marks
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   lock screen
  77.   resetCard
  78.   go to card short name of me of this background
  79.   unlock screen
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 3 (button)
  85. -- low flags: 00
  86. -- high flags: 2000
  87. -- rect: left=41 top=307 right=325 bottom=107
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: OK
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   lock screen
  99.   resetCard
  100.   pop card
  101.   unlock screen
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 4 (button)
  107. -- low flags: 00
  108. -- high flags: 2000
  109. -- rect: left=119 top=307 right=325 bottom=185
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Cancel
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   lock screen
  121.   resetCard
  122.   pop card
  123.   unlock screen
  124. end mouseUp
  125.  
  126.  
  127.  
  128. -- part 5 (button)
  129. -- low flags: 00
  130. -- high flags: 2000
  131. -- rect: left=197 top=307 right=325 bottom=263
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Prefs…
  140. ----- HyperTalk script -----
  141. on mouseUp
  142.   lock screen
  143.   push card
  144.   go to card short name of me of this background
  145.   unlock screen
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 6 (button)
  151. -- low flags: 00
  152. -- high flags: 2000
  153. -- rect: left=275 top=307 right=325 bottom=341
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: Clear…
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   lock screen
  165.   resetCard
  166.   unlock screen
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 7 (button)
  172. -- low flags: 00
  173. -- high flags: 2000
  174. -- rect: left=353 top=307 right=325 bottom=469
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Points & Credits
  183.  
  184.  
  185. -- part 8 (button)
  186. -- low flags: 00
  187. -- high flags: 8001
  188. -- rect: left=41 top=128 right=143 bottom=76
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 3
  193. -- text size: 9
  194. -- style flags: 0
  195. -- line height: 12
  196. -- part name: Revert
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   repeat with index = 9 to 22
  200.     set hilite of card button index to false
  201.   end repeat
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 9 (button)
  207. -- low flags: 00
  208. -- high flags: 8001
  209. -- rect: left=78 top=129 right=142 bottom=90
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 5070 / 5070
  212. -- text alignment: 1
  213. -- font id: 3
  214. -- text size: 9
  215. -- style flags: 0
  216. -- line height: 12
  217. -- part name: K
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   if icon of me is 0 then set hilite of me to not hilite of me
  221.   else beep
  222. end mouseUp
  223.  
  224.  
  225.  
  226. -- part 10 (button)
  227. -- low flags: 00
  228. -- high flags: 8001
  229. -- rect: left=93 top=129 right=142 bottom=105
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 5070 / 5070
  232. -- text alignment: 1
  233. -- font id: 3
  234. -- text size: 9
  235. -- style flags: 0
  236. -- line height: 12
  237. -- part name: 1
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   if icon of me is 0 then set hilite of me to not hilite of me
  241.   else beep
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 11 (button)
  247. -- low flags: 00
  248. -- high flags: 8001
  249. -- rect: left=108 top=129 right=142 bottom=120
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 5070 / 5070
  252. -- text alignment: 1
  253. -- font id: 3
  254. -- text size: 9
  255. -- style flags: 0
  256. -- line height: 12
  257. -- part name: 2
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   if icon of me is 0 then set hilite of me to not hilite of me
  261.   else beep
  262. end mouseUp
  263.  
  264.  
  265.  
  266. -- part 12 (button)
  267. -- low flags: 00
  268. -- high flags: 8001
  269. -- rect: left=123 top=129 right=142 bottom=135
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 5070 / 5070
  272. -- text alignment: 1
  273. -- font id: 3
  274. -- text size: 9
  275. -- style flags: 0
  276. -- line height: 12
  277. -- part name: 3
  278. ----- HyperTalk script -----
  279. on mouseUp
  280.   if icon of me is 0 then set hilite of me to not hilite of me
  281.   else beep
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 13 (button)
  287. -- low flags: 00
  288. -- high flags: 8001
  289. -- rect: left=138 top=129 right=142 bottom=150
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 5070 / 5070
  292. -- text alignment: 1
  293. -- font id: 3
  294. -- text size: 9
  295. -- style flags: 0
  296. -- line height: 12
  297. -- part name: 4
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   if icon of me is 0 then set hilite of me to not hilite of me
  301.   else beep
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 14 (button)
  307. -- low flags: 00
  308. -- high flags: 8001
  309. -- rect: left=153 top=129 right=142 bottom=165
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 5070 / 5070
  312. -- text alignment: 1
  313. -- font id: 3
  314. -- text size: 9
  315. -- style flags: 0
  316. -- line height: 12
  317. -- part name: 5
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   if icon of me is 0 then set hilite of me to not hilite of me
  321.   else beep
  322. end mouseUp
  323.  
  324.  
  325.  
  326. -- part 15 (button)
  327. -- low flags: 00
  328. -- high flags: 8001
  329. -- rect: left=168 top=129 right=142 bottom=180
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 5070 / 5070
  332. -- text alignment: 1
  333. -- font id: 3
  334. -- text size: 9
  335. -- style flags: 0
  336. -- line height: 12
  337. -- part name: 6
  338. ----- HyperTalk script -----
  339. on mouseUp
  340.   if icon of me is 0 then set hilite of me to not hilite of me
  341.   else beep
  342. end mouseUp
  343.  
  344.  
  345.  
  346. -- part 16 (button)
  347. -- low flags: 00
  348. -- high flags: 8001
  349. -- rect: left=183 top=129 right=142 bottom=195
  350. -- title width / last selected line: 0
  351. -- icon id / first selected line: 5070 / 5070
  352. -- text alignment: 1
  353. -- font id: 3
  354. -- text size: 9
  355. -- style flags: 0
  356. -- line height: 12
  357. -- part name: 7
  358. ----- HyperTalk script -----
  359. on mouseUp
  360.   if icon of me is 0 then set hilite of me to not hilite of me
  361.   else beep
  362. end mouseUp
  363.  
  364.  
  365.  
  366. -- part 17 (button)
  367. -- low flags: 00
  368. -- high flags: 8001
  369. -- rect: left=198 top=129 right=142 bottom=210
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 5070 / 5070
  372. -- text alignment: 1
  373. -- font id: 3
  374. -- text size: 9
  375. -- style flags: 0
  376. -- line height: 12
  377. -- part name: 8
  378. ----- HyperTalk script -----
  379. on mouseUp
  380.   if icon of me is 0 then set hilite of me to not hilite of me
  381.   else beep
  382. end mouseUp
  383.  
  384.  
  385.  
  386. -- part 18 (button)
  387. -- low flags: 00
  388. -- high flags: 8001
  389. -- rect: left=213 top=129 right=142 bottom=225
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 5070 / 5070
  392. -- text alignment: 1
  393. -- font id: 3
  394. -- text size: 9
  395. -- style flags: 0
  396. -- line height: 12
  397. -- part name: 9
  398. ----- HyperTalk script -----
  399. on mouseUp
  400.   if icon of me is 0 then set hilite of me to not hilite of me
  401.   else beep
  402. end mouseUp
  403.  
  404.  
  405.  
  406. -- part 19 (button)
  407. -- low flags: 00
  408. -- high flags: 8001
  409. -- rect: left=228 top=129 right=142 bottom=240
  410. -- title width / last selected line: 0
  411. -- icon id / first selected line: 5070 / 5070
  412. -- text alignment: 1
  413. -- font id: 3
  414. -- text size: 9
  415. -- style flags: 0
  416. -- line height: 12
  417. -- part name: 10
  418. ----- HyperTalk script -----
  419. on mouseUp
  420.   if icon of me is 0 then set hilite of me to not hilite of me
  421.   else beep
  422. end mouseUp
  423.  
  424.  
  425.  
  426. -- part 20 (button)
  427. -- low flags: 00
  428. -- high flags: 8001
  429. -- rect: left=243 top=129 right=142 bottom=255
  430. -- title width / last selected line: 0
  431. -- icon id / first selected line: 0 / 0
  432. -- text alignment: 1
  433. -- font id: 3
  434. -- text size: 9
  435. -- style flags: 0
  436. -- line height: 12
  437. -- part name: 11
  438. ----- HyperTalk script -----
  439. on mouseUp
  440.   if icon of me is 0 then set hilite of me to not hilite of me
  441.   else beep
  442. end mouseUp
  443.  
  444.  
  445.  
  446. -- part 21 (button)
  447. -- low flags: 00
  448. -- high flags: 8001
  449. -- rect: left=258 top=129 right=142 bottom=270
  450. -- title width / last selected line: 0
  451. -- icon id / first selected line: 0 / 0
  452. -- text alignment: 1
  453. -- font id: 3
  454. -- text size: 9
  455. -- style flags: 0
  456. -- line height: 12
  457. -- part name: 12
  458. ----- HyperTalk script -----
  459. on mouseUp
  460.   if icon of me is 0 then set hilite of me to not hilite of me
  461.   else beep
  462. end mouseUp
  463.  
  464.  
  465.  
  466. -- part 22 (button)
  467. -- low flags: 00
  468. -- high flags: 8001
  469. -- rect: left=273 top=129 right=142 bottom=285
  470. -- title width / last selected line: 0
  471. -- icon id / first selected line: 5070 / 5070
  472. -- text alignment: 1
  473. -- font id: 3
  474. -- text size: 9
  475. -- style flags: 0
  476. -- line height: 12
  477. -- part name: 13
  478. ----- HyperTalk script -----
  479. on mouseUp
  480.   if icon of me is 0 then set hilite of me to not hilite of me
  481.   else beep
  482. end mouseUp
  483.  
  484.  
  485.  
  486. -- part 23 (button)
  487. -- low flags: 00
  488. -- high flags: 8001
  489. -- rect: left=302 top=128 right=143 bottom=337
  490. -- title width / last selected line: 0
  491. -- icon id / first selected line: 0 / 0
  492. -- text alignment: 1
  493. -- font id: 3
  494. -- text size: 9
  495. -- style flags: 0
  496. -- line height: 12
  497. -- part name: Revert
  498. ----- HyperTalk script -----
  499. on mouseUp
  500.   repeat with index = 24 to 32
  501.     set hilite of card button index to false
  502.   end repeat
  503. end mouseUp
  504.  
  505.  
  506.  
  507. -- part 24 (button)
  508. -- low flags: 00
  509. -- high flags: 8001
  510. -- rect: left=339 top=129 right=142 bottom=351
  511. -- title width / last selected line: 0
  512. -- icon id / first selected line: 0 / 0
  513. -- text alignment: 1
  514. -- font id: 3
  515. -- text size: 9
  516. -- style flags: 0
  517. -- line height: 12
  518. -- part name: M
  519. ----- HyperTalk script -----
  520. on mouseUp
  521.   if icon of me is 0 then set hilite of me to not hilite of me
  522.   else beep
  523. end mouseUp
  524.  
  525.  
  526.  
  527. -- part 25 (button)
  528. -- low flags: 00
  529. -- high flags: 8001
  530. -- rect: left=354 top=129 right=142 bottom=366
  531. -- title width / last selected line: 0
  532. -- icon id / first selected line: 0 / 0
  533. -- text alignment: 1
  534. -- font id: 3
  535. -- text size: 9
  536. -- style flags: 0
  537. -- line height: 12
  538. -- part name: 1
  539. ----- HyperTalk script -----
  540. on mouseUp
  541.   if icon of me is 0 then set hilite of me to not hilite of me
  542.   else beep
  543. end mouseUp
  544.  
  545.  
  546.  
  547. -- part 26 (button)
  548. -- low flags: 00
  549. -- high flags: 8001
  550. -- rect: left=369 top=129 right=142 bottom=381
  551. -- title width / last selected line: 0
  552. -- icon id / first selected line: 0 / 0
  553. -- text alignment: 1
  554. -- font id: 3
  555. -- text size: 9
  556. -- style flags: 0
  557. -- line height: 12
  558. -- part name: 2
  559. ----- HyperTalk script -----
  560. on mouseUp
  561.   if icon of me is 0 then set hilite of me to not hilite of me
  562.   else beep
  563. end mouseUp
  564.  
  565.  
  566.  
  567. -- part 27 (button)
  568. -- low flags: 00
  569. -- high flags: 8001
  570. -- rect: left=384 top=129 right=142 bottom=396
  571. -- title width / last selected line: 0
  572. -- icon id / first selected line: 0 / 0
  573. -- text alignment: 1
  574. -- font id: 3
  575. -- text size: 9
  576. -- style flags: 0
  577. -- line height: 12
  578. -- part name: 3
  579. ----- HyperTalk script -----
  580. on mouseUp
  581.   if icon of me is 0 then set hilite of me to not hilite of me
  582.   else beep
  583. end mouseUp
  584.  
  585.  
  586.  
  587. -- part 28 (button)
  588. -- low flags: 00
  589. -- high flags: 8001
  590. -- rect: left=399 top=129 right=142 bottom=411
  591. -- title width / last selected line: 0
  592. -- icon id / first selected line: 0 / 0
  593. -- text alignment: 1
  594. -- font id: 3
  595. -- text size: 9
  596. -- style flags: 0
  597. -- line height: 12
  598. -- part name: 4
  599. ----- HyperTalk script -----
  600. on mouseUp
  601.   if icon of me is 0 then set hilite of me to not hilite of me
  602.   else beep
  603. end mouseUp
  604.  
  605.  
  606.  
  607. -- part 29 (button)
  608. -- low flags: 00
  609. -- high flags: 8001
  610. -- rect: left=414 top=129 right=142 bottom=426
  611. -- title width / last selected line: 0
  612. -- icon id / first selected line: 0 / 0
  613. -- text alignment: 1
  614. -- font id: 3
  615. -- text size: 9
  616. -- style flags: 0
  617. -- line height: 12
  618. -- part name: 5
  619. ----- HyperTalk script -----
  620. on mouseUp
  621.   if icon of me is 0 then set hilite of me to not hilite of me
  622.   else beep
  623. end mouseUp
  624.  
  625.  
  626.  
  627. -- part 30 (button)
  628. -- low flags: 00
  629. -- high flags: 8001
  630. -- rect: left=429 top=129 right=142 bottom=441
  631. -- title width / last selected line: 0
  632. -- icon id / first selected line: 0 / 0
  633. -- text alignment: 1
  634. -- font id: 3
  635. -- text size: 9
  636. -- style flags: 0
  637. -- line height: 12
  638. -- part name: 6
  639. ----- HyperTalk script -----
  640. on mouseUp
  641.   if icon of me is 0 then set hilite of me to not hilite of me
  642.   else beep
  643. end mouseUp
  644.  
  645.  
  646.  
  647. -- part 31 (button)
  648. -- low flags: 00
  649. -- high flags: 8001
  650. -- rect: left=444 top=129 right=142 bottom=456
  651. -- title width / last selected line: 0
  652. -- icon id / first selected line: 0 / 0
  653. -- text alignment: 1
  654. -- font id: 3
  655. -- text size: 9
  656. -- style flags: 0
  657. -- line height: 12
  658. -- part name: 7
  659. ----- HyperTalk script -----
  660. on mouseUp
  661.   if icon of me is 0 then set hilite of me to not hilite of me
  662.   else beep
  663. end mouseUp
  664.  
  665.  
  666.  
  667. -- part 32 (button)
  668. -- low flags: 00
  669. -- high flags: 8001
  670. -- rect: left=459 top=129 right=142 bottom=471
  671. -- title width / last selected line: 0
  672. -- icon id / first selected line: 0 / 0
  673. -- text alignment: 1
  674. -- font id: 3
  675. -- text size: 9
  676. -- style flags: 0
  677. -- line height: 12
  678. -- part name: 8
  679. ----- HyperTalk script -----
  680. on mouseUp
  681.   if icon of me is 0 then set hilite of me to not hilite of me
  682.   else beep
  683. end mouseUp
  684.  
  685.  
  686.  
  687. -- part 33 (button)
  688. -- low flags: 00
  689. -- high flags: 0000
  690. -- rect: left=255 top=191 right=205 bottom=269
  691. -- title width / last selected line: 0
  692. -- icon id / first selected line: 5064 / 5064
  693. -- text alignment: 1
  694. -- font id: 3
  695. -- text size: 10
  696. -- style flags: 0
  697. -- line height: 13
  698. -- part name: 
  699. ----- HyperTalk script -----
  700. on mouseUp
  701.   if icon of me is "5065" then
  702.     set icon of me to "Md Unchecked Box"
  703.   else set icon of me to "Md Checked Box"
  704. end mouseUp
  705.  
  706.  
  707. -- part 34 (button)
  708. -- low flags: 80
  709. -- high flags: 0000
  710. -- rect: left=255 top=207 right=221 bottom=269
  711. -- title width / last selected line: 0
  712. -- icon id / first selected line: 5064 / 5064
  713. -- text alignment: 1
  714. -- font id: 3
  715. -- text size: 10
  716. -- style flags: 0
  717. -- line height: 13
  718. -- part name: 
  719. ----- HyperTalk script -----
  720. on mouseUp
  721.   if icon of me is "5065" then
  722.     set icon of me to "Md Unchecked Box"
  723.   else set icon of me to "Md Checked Box"
  724. end mouseUp
  725.  
  726.  
  727. -- part 35 (button)
  728. -- low flags: 80
  729. -- high flags: 0000
  730. -- rect: left=255 top=223 right=237 bottom=269
  731. -- title width / last selected line: 0
  732. -- icon id / first selected line: 5064 / 5064
  733. -- text alignment: 1
  734. -- font id: 3
  735. -- text size: 10
  736. -- style flags: 0
  737. -- line height: 13
  738. -- part name: 
  739. ----- HyperTalk script -----
  740. on mouseUp
  741.   if icon of me is "5065" then
  742.     set icon of me to "Md Unchecked Box"
  743.   else set icon of me to "Md Checked Box"
  744. end mouseUp
  745.  
  746.  
  747. -- part 36 (button)
  748. -- low flags: 80
  749. -- high flags: 0000
  750. -- rect: left=255 top=239 right=253 bottom=269
  751. -- title width / last selected line: 0
  752. -- icon id / first selected line: 5064 / 5064
  753. -- text alignment: 1
  754. -- font id: 3
  755. -- text size: 10
  756. -- style flags: 0
  757. -- line height: 13
  758. -- part name: 
  759. ----- HyperTalk script -----
  760. on mouseUp
  761.   if icon of me is "5065" then
  762.     set icon of me to "Md Unchecked Box"
  763.   else set icon of me to "Md Checked Box"
  764. end mouseUp
  765.  
  766.  
  767. -- part 37 (button)
  768. -- low flags: 00
  769. -- high flags: 0000
  770. -- rect: left=440 top=191 right=205 bottom=454
  771. -- title width / last selected line: 0
  772. -- icon id / first selected line: 5064 / 5064
  773. -- text alignment: 1
  774. -- font id: 3
  775. -- text size: 10
  776. -- style flags: 0
  777. -- line height: 13
  778. -- part name: 
  779. ----- HyperTalk script -----
  780. on mouseUp
  781.   if icon of me is "5065" then
  782.     set icon of me to "Md Unchecked Box"
  783.   else set icon of me to "Md Checked Box"
  784. end mouseUp
  785.  
  786.  
  787. -- part 38 (button)
  788. -- low flags: 00
  789. -- high flags: 0000
  790. -- rect: left=440 top=207 right=221 bottom=454
  791. -- title width / last selected line: 0
  792. -- icon id / first selected line: 5064 / 5064
  793. -- text alignment: 1
  794. -- font id: 3
  795. -- text size: 10
  796. -- style flags: 0
  797. -- line height: 13
  798. -- part name: 
  799. ----- HyperTalk script -----
  800. on mouseUp
  801.   if icon of me is "5065" then
  802.     set icon of me to "Md Unchecked Box"
  803.   else set icon of me to "Md Checked Box"
  804. end mouseUp
  805.  
  806.  
  807. -- part 39 (button)
  808. -- low flags: 00
  809. -- high flags: 0000
  810. -- rect: left=440 top=223 right=237 bottom=454
  811. -- title width / last selected line: 0
  812. -- icon id / first selected line: 5064 / 5064
  813. -- text alignment: 1
  814. -- font id: 3
  815. -- text size: 10
  816. -- style flags: 0
  817. -- line height: 13
  818. -- part name: 
  819. ----- HyperTalk script -----
  820. on mouseUp
  821.   if icon of me is "5065" then
  822.     set icon of me to "Md Unchecked Box"
  823.   else set icon of me to "Md Checked Box"
  824. end mouseUp
  825.  
  826.  
  827. -- part 40 (button)
  828. -- low flags: 00
  829. -- high flags: 0000
  830. -- rect: left=440 top=239 right=253 bottom=454
  831. -- title width / last selected line: 0
  832. -- icon id / first selected line: 5064 / 5064
  833. -- text alignment: 1
  834. -- font id: 3
  835. -- text size: 10
  836. -- style flags: 0
  837. -- line height: 13
  838. -- part name: 
  839. ----- HyperTalk script -----
  840. on mouseUp
  841.   if icon of me is "5065" then
  842.     set icon of me to "Md Unchecked Box"
  843.   else set icon of me to "Md Checked Box"
  844. end mouseUp
  845.  
  846.  
  847. -- part 41 (button)
  848. -- low flags: 00
  849. -- high flags: 0002
  850. -- rect: left=131 top=258 right=272 bottom=147
  851. -- title width / last selected line: 0
  852. -- icon id / first selected line: 0 / 0
  853. -- text alignment: 1
  854. -- font id: 0
  855. -- text size: 12
  856. -- style flags: 0
  857. -- line height: 16
  858. -- part name: Thumb
  859.  
  860.  
  861. -- part 42 (button)
  862. -- low flags: 00
  863. -- high flags: 0000
  864. -- rect: left=131 top=258 right=272 bottom=256
  865. -- title width / last selected line: 0
  866. -- icon id / first selected line: 0 / 0
  867. -- text alignment: 1
  868. -- font id: 0
  869. -- text size: 12
  870. -- style flags: 0
  871. -- line height: 16
  872. -- part name: Scroll Bar
  873. ----- HyperTalk script -----
  874. on mouseUp
  875.   lock screen
  876.   set icon of card button id 33 to "Md Unchecked Box"
  877.   set icon of card button id 34 to "Md Unchecked Box"
  878.   set icon of card button id 35 to "Md Unchecked Box"
  879.   set icon of card button id 36 to "Md Unchecked Box"
  880.   get item 1 of the loc of card button "Thumb"
  881.   if it is 139 then
  882.     set the loc of card button "Thumb" to 193,265
  883.     put "Algebra" & return & "Biology" & return & "Biology Lab" & return & "Chemistry" into card field "Course List"
  884.     show card button id 34
  885.     show card button id 35
  886.     show card button id 36
  887.     put "11" into card field "Grade"
  888.   else if it is 193 then
  889.     if the clickH >= 193 then
  890.       set the loc of card button "Thumb" to 248,265
  891.       put "Algebra" & return & "Biology" & return & "Bookkeeping" & return & "Chemistry" into card field "Course List"
  892.       put "12" into card field "Grade"
  893.     else
  894.       set the loc of card button "Thumb" to 139,265
  895.       put "Study Hall" into card field "Course List"
  896.       hide card button id 34
  897.       hide card button id 35
  898.       hide card button id 36
  899.       put "N/A" into card field "Grade"
  900.     end if
  901.   else if it is 248 then
  902.     set the loc of card button "Thumb" to 193,265
  903.     put "Algebra" & return & "Biology" & return & "Biology Lab" & return & "Chemistry" into card field "Course List"
  904.     put "11" into card field "Grade"
  905.   end if
  906.   unlock screen
  907. end mouseUp
  908.  
  909.  
  910. -- part 43 (field)
  911. -- low flags: 01
  912. -- high flags: 0000
  913. -- rect: left=41 top=190 right=258 bottom=252
  914. -- title width / last selected line: 0
  915. -- icon id / first selected line: 0 / 0
  916. -- text alignment: 0
  917. -- font id: 0
  918. -- text size: 12
  919. -- style flags: 0
  920. -- line height: 16
  921. -- part name: Course List
  922.  
  923.  
  924. -- part 44 (field)
  925. -- low flags: 01
  926. -- high flags: 0000
  927. -- rect: left=74 top=258 right=272 bottom=112
  928. -- title width / last selected line: 0
  929. -- icon id / first selected line: 0 / 0
  930. -- text alignment: 0
  931. -- font id: 3
  932. -- text size: 9
  933. -- style flags: 0
  934. -- line height: 12
  935. -- part name: Grade
  936.  
  937.  
  938. -- part contents for background part 3
  939. ----- text -----
  940. 47
  941. 80
  942. 53
  943. 54
  944. 52
  945. 102
  946. 48
  947. 13
  948. 94
  949. 93
  950. 103
  951. 104
  952. 44
  953.  
  954.  
  955.  
  956.  
  957.  
  958. -- part contents for background part 4
  959. ----- text -----
  960. Abrosimoff, Michael John
  961. Adams, Bryan
  962. Alexander, Rick
  963. Alexander, Susan
  964. Allsop, Blair M.
  965. Azimov, Isaac
  966. Barisoff, Larissa
  967. Bunyan, Paul
  968. Burnyeat, Grant
  969. Caldwell, Brian
  970. Chalk, Patricia
  971. Collins, Bob
  972. Conkin, Elizabeth
  973.  
  974. -- part contents for background part 5
  975. ----- text -----
  976. 112
  977. 112
  978. 112
  979. 112
  980. 112
  981. N/A
  982. 112
  983. 112
  984. 112
  985. 112
  986. N/A
  987. N/A
  988. 112
  989.  
  990. -- part contents for background part 6
  991. ----- text -----
  992. 12
  993. 12
  994. 12
  995. 12
  996. 12
  997. 11
  998. 12
  999. 12
  1000. 12
  1001. 12
  1002. 11
  1003. 11
  1004. 12
  1005.  
  1006. -- part contents for background part 7
  1007. ----- text -----
  1008. 0.000
  1009. 0.000
  1010. 0.000
  1011. 0.000
  1012. 0.000
  1013. 1.000
  1014. 0.000
  1015. 0.000
  1016. 0.000
  1017. 0.000
  1018. 0.000
  1019. 0.000
  1020. 0.000
  1021.  
  1022. -- part contents for background part 8
  1023. ----- text -----
  1024. 1
  1025. 1
  1026. 1
  1027. 1
  1028. 1
  1029. 1
  1030. 1
  1031. 1
  1032. 1
  1033. 1
  1034. 7
  1035. 7
  1036. 1
  1037.  
  1038. -- part contents for background part 1
  1039. ----- text -----
  1040. 99 Students
  1041.  
  1042. -- part contents for background part 2
  1043. ----- text -----
  1044. Wed, Aug 30, 1989
  1045.  
  1046. -- part contents for card part 43
  1047. ----- text -----
  1048. Study Hall
  1049.  
  1050. -- part contents for card part 44
  1051. ----- text -----
  1052. N/A